00010		ZF=0
00100		Z=0
00200		ZB=0
00300		ZC=0
00400		ZD=0
00500		ZE=0
00600	1	FORMAT(F)
00700		ACCEPT 1,A
00750		WRITE(1,1)A
00800		X=A*.04
00900		B=A*.035
01000		ZB=ZB+B
01100		C=A*.03
01200		ZC=ZC+C
01300		D=A*.025
01400		ZD=ZD+D
01500		E=A*.02
01600		ZE=ZE+E
01700		Z=Z+X
01750		F=A*.015
01775		ZF=ZF+F
01800	C	TYPE 2,X,Z
01900		TYPE 3,X,Z,B,ZB,C,ZC,D,ZD,E,ZE,F,ZF
01910		WRITE(1,3)X,Z,B,ZB,C,ZC,D,ZD,E,ZE,F,ZF
02000		GO TO 1
02100	2	FORMAT(2F9.2)
02200	3	FORMAT(' 4C=',F5.2,F7.2,'    3.5C=',F5.2,F7.2/' 3C=',F5.2,
02300		1 F7.2,'    2.5C=',F5.2,F7.2/' 2C=',F5.2,F7.2,'    1.5C=',
02350		1 F5.2,F7.2)
02400		END